Private Sub cmdPrint_Click()
Printer.Print Text1.Text
Printer.EndDoc
End Sub
 

